Collection of Tools & Utilities/Collection of Tools and Utilities.iso/graphic/1svga.zip/COLOR1.PAS

Pascal/Delphi Source File | 1994-05-26 | 611b | 27 lines

{ Show Text-Mode Mixed 16 Colors }

uses Txt;

{ ─────────────── ShowColor ─────────────── }
procedure ShowColor(Ty,X,Y:integer);
const Pattern:array[1..3] of char=('▒','░','▓');
var I,J:integer;
begin
  for I:=0 to 15 do for J:=0 to 15 do
    TextBar(X+3*J,Y+I,3,1,16*I+J,Pattern[Ty]);
end;

var I,K:integer;
begin
  TextBar(1, 1,80, 1,$3E,' ');
  TextBar(1, 2,80,23,$1E,' ');
  TextBar(1,25,80, 1,$3E,' ');
  PrintChar(4,1,'Show Text-Mode Mixed 16 Colors');
  PrintChar(4,25,'Press any key...');
  SetFlash(0);
  for I:=1 to 3 do begin
    ShowColor(I,15,5);
    K:=Key;
  end;
end.